#!/usr/bin/perl -w
####################################################
# Copyright (c) 2002-2007 BioWare Corp.
# http://www.bigdaddymonitor.org
#
# This file is part of the BigDaddy Monitoring
# program. It is free software distributed under
# the terms of the BSD License. It is ditributed
# in the hopes that it will be useful, but
# WITHOUT ANY WARRANTY; without event the implied
# warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
#
# The BSD License is available from:
# http://www.opensource.org/licenses/bsd-license.php
####################################################
#=============================================================================#
#SNMP Module: Disk Space Check
#Author: Duleepa Wijayawardhana
#Date: 05.04.2004
#=============================================================================#

use strict;

my ($sServer) = @ARGV;

my $sString=`snmpget -v2c -c public $sServer .1.3.6.1.4.1.2021.52.101.1`;

if ($sString =~ m/STRING: "([0-9\.]+)"/is)
{
   print $1;
}


